home *** CD-ROM | disk | FTP | other *** search
/ Power Bytes: Money & Finance / PowerBytes Money and Finance CD-ROM 01 / PowerBytes Money and Finance CD-ROM 01.iso / Demos / TrueBASIC Demo / User's Guide / Coins < prev    next >
Encoding:
Text File  |  1985-06-20  |  103 b   |  8 lines  |  [TEXT/TRUE]
  1. ! Flip a coin five times.
  2. !
  3. FOR toss = 1 to 5
  4.     IF Rnd<.5 then PRINT "Heads, you win"
  5. NEXT toss
  6.  
  7. END
  8.